inherited fmFoodFactor: TfmFoodFactor
  Left = 477
  Top = 164
  Width = 863
  Height = 612
  Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090#1099' '#1087#1086' '#1087#1080#1090#1072#1085#1080#1102
  Constraints.MinHeight = 612
  Constraints.MinWidth = 863
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 547
    Width = 847
  end
  inherited Panel1: TPanel
    Width = 847
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 676
    end
    inherited BitBtn2: TBitBtn
      Left = 764
    end
  end
  object dbgFoodFactor: TcxGrid [2]
    Left = 0
    Top = 148
    Width = 847
    Height = 399
    Align = alClient
    BevelEdges = [beTop, beRight, beBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    object tvmenu: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.Position = fpTop
      OnEditing = tvmenuEditing
      OnEditValueChanged = tvmenuEditValueChanged
      DataController.DataSource = dsFoodFactor
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      FilterRow.InfoText = #1065#1077#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1092#1080#1083#1100#1090#1088#1072
      NewItemRow.InfoText = #1065#1105#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1085#1086#1074#1086#1081' '#1089#1090#1088#1086#1082#1080
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvmenuIDFACTOR: TcxGridDBColumn
        Caption = #8470
        DataBinding.FieldName = 'IDFACTOR'
        Options.Editing = False
        Width = 43
      end
      object tvmenuSDNAME: TcxGridDBColumn
        Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1073#1083#1102#1076
        DataBinding.FieldName = 'SDNAME'
        Options.Editing = False
        Width = 104
      end
      object tvmenuDATEBEGIN: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        DataBinding.FieldName = 'DATEBEGIN'
        Width = 74
      end
      object tvmenuDATEEND: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        DataBinding.FieldName = 'DATEEND'
        Width = 92
      end
      object tvmenuFGROUP1: TcxGridDBColumn
        Caption = #1044#1077#1090#1080' 1 -3 '#1075#1086#1076#1072
        DataBinding.FieldName = 'FGROUP1'
        Width = 102
      end
      object tvmenuFGROUP2: TcxGridDBColumn
        Caption = #1044#1077#1090#1080' 3 - 6 '#1083#1077#1090
        DataBinding.FieldName = 'FGROUP2'
        Width = 104
      end
      object tvmenuFGROUP3: TcxGridDBColumn
        Caption = #1044#1077#1090#1080' 7 - 10 '#1083#1077#1090
        DataBinding.FieldName = 'FGROUP3'
        Width = 102
      end
      object tvmenuFGROUP4: TcxGridDBColumn
        Caption = #1044#1077#1090#1080' 11 -17 '#1083#1077#1090
        DataBinding.FieldName = 'FGROUP4'
        Width = 106
      end
      object tvmenuFGROUP5: TcxGridDBColumn
        Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        DataBinding.FieldName = 'FGROUP5'
        Width = 100
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvmenu
    end
  end
  object Panel9: TPanel [3]
    Left = 0
    Top = 45
    Width = 847
    Height = 29
    Align = alTop
    TabOrder = 3
    object dxBarDockControl2: TdxBarDockControl
      Left = 1
      Top = 1
      Width = 845
      Height = 26
      Align = dalTop
      BarManager = dxBarManager1
    end
  end
  object Panel11: TPanel [4]
    Left = 0
    Top = 74
    Width = 847
    Height = 53
    Align = alTop
    TabOrder = 4
    TabStop = True
    Visible = False
    object Label9: TLabel
      Left = 10
      Top = 9
      Width = 108
      Height = 13
      Caption = #1050#1072#1090#1077#1075#1086#1088#1080#1103' '#1073#1083#1102#1076#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 361
      Top = 9
      Width = 105
      Height = 13
      Caption = #1055#1077#1088#1080#1086#1076' '#1076#1077#1081#1089#1090#1074#1080#1103':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 338
      Top = 30
      Width = 13
      Height = 13
      Caption = #1057' :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 490
      Top = 30
      Width = 22
      Height = 13
      Caption = #1055#1054' :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btSave: TBitBtn
      Left = 648
      Top = 21
      Width = 87
      Height = 25
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      Default = True
      TabOrder = 1
      OnClick = btSaveClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btCancel: TBitBtn
      Left = 744
      Top = 21
      Width = 87
      Height = 25
      Cancel = True
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100
      TabOrder = 0
      OnClick = btCancelClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object dxDBLookupTreeView1: TdxDBLookupTreeView
      Left = 8
      Top = 25
      Width = 321
      Height = 21
      CanSelectParents = True
      ParentColor = False
      TabOrder = 2
      TabStop = True
      Text = 'dxDBLookupTreeView1'
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      TreeViewStateImages = DMInv.ilBJTree
      DisplayField = 'SDNAME'
      DividedChar = '.'
      ImageIndexField = 'SDISDELETE'
      ListSource = dsCATEGORY
      KeyField = 'TMCATEGORY'
      ListField = 'SDNAME'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'SDPARID'
      RootValue = 0
      TextStyle = tvtsShort
      DataField = 'TYPEFACTOR'
      DataSource = dsFoodFactor
    end
    object eDATEBEGIN: TcxDBDateEdit
      Left = 360
      Top = 24
      DataBinding.DataField = 'DATEBEGIN'
      DataBinding.DataSource = dsFoodFactor
      TabOrder = 3
      Width = 121
    end
    object eDATEEND: TcxDBDateEdit
      Left = 520
      Top = 24
      DataBinding.DataField = 'DATEEND'
      DataBinding.DataSource = dsFoodFactor
      TabOrder = 4
      Width = 121
    end
  end
  object Panel2: TPanel [5]
    Left = 0
    Top = 127
    Width = 847
    Height = 21
    Align = alTop
    TabOrder = 9
    TabStop = True
    object Label1: TLabel
      Left = 7
      Top = 3
      Width = 347
      Height = 13
      Caption = #1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090#1099' '#1087#1086' '#1087#1080#1090#1072#1085#1080#1102' '#1076#1083#1103' '#1088#1072#1079#1085#1099#1093' '#1074#1086#1079#1088#1072#1089#1090#1085#1099#1093' '#1075#1088#1091#1087#1087':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 98
    Top = 207
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl2
      DockedDockControl = dxBarDockControl2
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 223
      FloatTop = 158
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton32'
        end
        item
          Visible = True
          ItemName = 'dxBarButton33'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRecentItems = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton2: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton3: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1096#1072#1073#1083#1086#1085
      Visible = ivNever
      ImageIndex = 37
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton6: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton7: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton8: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton9: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton10: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton11: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton12: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton13: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton14: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton15: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton16: TdxBarButton
      Category = 0
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton17: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton18: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton19: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton20: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton21: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton22: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton23: TdxBarButton
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton24: TdxBarButton
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton25: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1090#1086#1084#1082#1072
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton26: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton27: TdxBarButton
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 51
    end
    object dxBarButton28: TdxBarButton
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton29: TdxBarButton
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
    end
    object dxBarButton30: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton31: TdxBarButton
      Align = iaRight
      Category = 0
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton32: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton32Click
    end
    object dxBarButton33: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton33Click
    end
  end
  object dsFoodFactor: TDataSource
    DataSet = qFoodFactor
    Left = 424
    Top = 256
  end
  object qFoodFactor: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'select ff.*, sd.sdname'
      'from f_factor ff'
      'inner join sys_dic sd on sd.sdid=ff.typefactor'
      'where ff.fisdelete is null')
    UpdateObject = quFoodFactor
    GeneratorField.Field = 'IDFACTOR'
    GeneratorField.Generator = 'GEN_F_FACTOR_ID'
    Left = 456
    Top = 256
    object qFoodFactorIDFACTOR: TIntegerField
      FieldName = 'IDFACTOR'
      Origin = '"F_FACTOR"."IDFACTOR"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFoodFactorDATEBEGIN: TDateField
      FieldName = 'DATEBEGIN'
      Origin = '"F_FACTOR"."DATEBEGIN"'
    end
    object qFoodFactorDATEEND: TDateField
      FieldName = 'DATEEND'
      Origin = '"F_FACTOR"."DATEEND"'
    end
    object qFoodFactorSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qFoodFactorTYPEFACTOR: TIntegerField
      FieldName = 'TYPEFACTOR'
      Origin = '"F_FACTOR"."TYPEFACTOR"'
    end
    object qFoodFactorFGROUP1: TIBBCDField
      FieldName = 'FGROUP1'
      Origin = '"F_FACTOR"."FGROUP1"'
      Precision = 18
      Size = 2
    end
    object qFoodFactorFGROUP2: TIBBCDField
      FieldName = 'FGROUP2'
      Origin = '"F_FACTOR"."FGROUP2"'
      Precision = 18
      Size = 2
    end
    object qFoodFactorFGROUP3: TIBBCDField
      FieldName = 'FGROUP3'
      Origin = '"F_FACTOR"."FGROUP3"'
      Precision = 18
      Size = 2
    end
    object qFoodFactorFGROUP4: TIBBCDField
      FieldName = 'FGROUP4'
      Origin = '"F_FACTOR"."FGROUP4"'
      Precision = 18
      Size = 2
    end
    object qFoodFactorFGROUP5: TIBBCDField
      FieldName = 'FGROUP5'
      Origin = '"F_FACTOR"."FGROUP5"'
      Precision = 18
      Size = 2
    end
  end
  object quFoodFactor: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDFACTOR,'
      '  DATEBEGIN,'
      '  DATEEND,'
      '  TYPEFACTOR,'
      '  FGROUP1,'
      '  FGROUP2,'
      '  FGROUP3,'
      '  FGROUP4,'
      '  FGROUP5,'
      '  FUSERENTER,'
      '  FTIMEENTER,'
      '  FUSEREDIT,'
      '  FTIMEEDIT,'
      '  FISDELETE,'
      '  SDNAME'
      'from f_factor '
      'where'
      '  IDFACTOR = :IDFACTOR')
    ModifySQL.Strings = (
      'update f_factor'
      'set'
      '  DATEBEGIN = :DATEBEGIN,'
      '  DATEEND = :DATEEND,'
      '  FGROUP1 = :FGROUP1,'
      '  FGROUP2 = :FGROUP2,'
      '  FGROUP3 = :FGROUP3,'
      '  FGROUP4 = :FGROUP4,'
      '  FGROUP5 = :FGROUP5,'
      '  IDFACTOR = :IDFACTOR,'
      '  TYPEFACTOR = :TYPEFACTOR'
      'where'
      '  IDFACTOR = :OLD_IDFACTOR')
    InsertSQL.Strings = (
      'insert into f_factor'
      
        '  (DATEBEGIN, DATEEND, FGROUP1, FGROUP2, FGROUP3, FGROUP4, FGROU' +
        'P5, IDFACTOR, '
      '   TYPEFACTOR)'
      'values'
      
        '  (:DATEBEGIN, :DATEEND, :FGROUP1, :FGROUP2, :FGROUP3, :FGROUP4,' +
        ' :FGROUP5, '
      '   :IDFACTOR, :TYPEFACTOR)')
    DeleteSQL.Strings = (
      'update f_factor ff'
      'set ff.fisdelete=1'
      'where'
      '  ff.idfactor = :OLD_idfactor')
    Left = 488
    Top = 256
  end
  object dsCATEGORY: TDataSource
    DataSet = qCATEGORY
    Left = 512
    Top = 192
  end
  object qCATEGORY: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      
        'select SDNAME, SDID as TMCATEGORY,SDPARID,sdisdelete from (SELEC' +
        'T t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 37'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid)'
      'where sdisdelete=0'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 544
    Top = 192
    object qCATEGORYSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qCATEGORYTMCATEGORY: TIntegerField
      FieldName = 'TMCATEGORY'
      ProviderFlags = []
    end
    object qCATEGORYSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qCATEGORYSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
end
